program Spheres;

uses
  Forms, SysUtils,
  Windows, Messages,
  Scrn in 'SCRN.PAS' {ScrnFrm},
  Cfg in 'CFG.PAS' {CfgFrm};

{$R *.RES}

begin

 if hPrevInst = 0 then begin

    if (ParamCount > 0) and 
         ((UpperCase(ParamStr(1)) = '/S') or    
         (UpperCase(Pchar(ParamStr(1)))='/P'))

   then begin
      Application.CreateForm(TScrnFrm, ScrnFrm);
      Application.CreateForm(TCfgFrm, CfgFrm);

   end else begin
      Application.CreateForm(TCfgFrm, CfgFrm);
      Application.CreateForm(TScrnFrm, ScrnFrm);

    end;

    Application.Run;
  end;
end.
